home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / WaveTracer.lha / WaveTracer / Doc / Developer / Sources / Schieber.mod < prev    next >
Text File  |  1996-08-11  |  864b  |  17 lines
  1. procedure CREATEPROPGAD(LEdge,TEdge,XSet,XJump,GadNum,IDOffset :word; XWindow :Window);
  2.  
  3. begin
  4.    with MyWTStdMsg^ do begin
  5.       SImage[GadNum]:=WTImg^.KnobImg^;
  6.       Schieber[GadNum]:=Gadget(NIL,LEdge,TEdge,320,15,GADGHCOMP+GADGIMAGE,$83,PROPGADGET,
  7.                                ^SImage[GadNum],NIL,Nil,0,^Schieberinfo[GadNum],IDOffset+GadNum*2-1,0);
  8.       SchieberInfo[GadNum]:=Propinfo(FREEHORIZ,XSet,0,XJump,0,0,0,0,0,0,0);
  9.       TextGad[GadNum]:=Gadget(NIL,LEdge+332,TEdge+1,60,15,GADGHCOMP,_LONGINT+STRINGCENTER+$1,
  10.                               STRGADGET,NIL,Nil,Nil,0,^TextInfo[GadNum],IDOffset+GadNum*2,0);
  11.       TextInfo[GadNum]:=StringInfo(^Buffer[GadNum],^Undobuffer[GadNum],0,9,0,0,0,0,
  12.                               0,0,Nil,0,Nil);
  13.       UndoBuffer[GadNum]:='';
  14.       MAKEBORDER(XWindow,LEdge+330,TEdge,LEdge+394,TEdge+14,NEGATIVE);
  15.    end;
  16. end;
  17.